Private Sub btn_Click()

    Dim Էġ As Range
    Dim  As Integer,  As Integer
    
    With lst
    
        For  = 0 To .ListCount - 1
        
            If .Selected() = True Then
            
                Set Էġ = Cells(Rows.Count, "I").End(xlUp).Offset(1)
                
                For  = 0 To .ColumnCount - 1
                    Էġ.Offset(, ).Value = .Column(, )
                Next
                
                With Էġ.Resize(1, 3)
                    .HorizontalAlignment = xlCenter
                    .Borders.LineStyle = xlContinuous
                End With
            
            End If
        
        Next
    
    End With

End Sub